home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aai.d64 / bowling report (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  211 lines
  1. 1 A$="ABCDEFGHIJKLMNOPQ":A$=A$+A$+A$+A$+A$:A$=A$+A$+A$
  2. 2 GOTO10000
  3. 3 REM **** FIND NEXT LOW RECORD ****
  4. 4 NL=NP:NT=NL+1
  5. 6 IF LEFT$(W$(NL),12)>LEFT$(W$(NT),12)THENNL=NT
  6. 7 IFNT=JTHENRETURN
  7. 8 NT=NT+1
  8. 9 GOTO6
  9. 10 FORZ1=LEN(Z1$)TO1STEP-1:FORZ2=1TO32-LEN(Z1$)+Z1
  10. 11 PRINTTAB(Z2)" "MID$(Z1$,Z1,1);"[145]":NEXTZ2:NEXTZ1:RETURN
  11. 12 Z3=LEN(Z1$):IFZ3/2<>INT(Z3/2)THENZ1$=" "+Z1$:GOTO12
  12. 13 FORZ1=1TOZ3/2:PRINTTAB(19-Z1);LEFT$(Z1$,Z1);RIGHT$(Z1$,Z1):PRINT"[145]";
  13. 14 FORZ2=1TO50:NEXTZ2:NEXTZ1:RETURN
  14. 30 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
  15. 31 FORZT=1TO100:NEXT:POKE54276,16:POKE54296,4:RETURN
  16. 38 PRINT"";:IFR<>0THENPOKE214,R-1:PRINT:REM *** POSITION CURSOR
  17. 39 POKE211,C:RETURN
  18. 41 GETD$:IFD$=""THEN41
  19. 42 RETURN:REM *** GET ROUTINE
  20. 43 N%=1:PP$=".":ZZ$="0":GOTO46:REM *** NUMERIC INPUT OF MONEY.
  21. 44 N%=1:PP$="":ZZ$="":GOTO46:  REM *** NUMERIC INPUT OF QUANTITY.
  22. 45 N%=0:                       REM *** ALPHA-NUMERIC INPUT.
  23. 46 GOSUB38:PRINT"";:FORI=1TOL:PRINT" ";:NEXTI:PRINT"[146]";:GOSUB38:DA$="":F%=0
  24. 47 FORIJ=1TOL:F%=F%+1
  25. 48 GOSUB41
  26. 50 IFD$="-"AND DA$=""THEN58
  27. 52 IFD$=CHR$(20)ORD$=CHR$(13)THENIJ=L:GOTO60
  28. 54 IFN%=1THENIFD$<"0"ORD$>"9"THEN48
  29. 56 IFD$<" "ORD$>"Z"THEN48
  30. 58 PRINTD$;:DA$=DA$+D$
  31. 60 NEXTIJ:IFD$=CHR$(13)THEN66
  32. 62 IFD$=CHR$(20)THEN46
  33. 63 GOSUB30
  34. 64 IFF%=LTHEN68
  35. 66 FORIJ=F%TOL:DA$=DA$+" ":NEXT
  36. 68 M=VAL(DA$)
  37. 70 IFM<0THENNG=1:M=-(M)
  38. 71 Y$=STR$(M):LN%=LEN(Y$)
  39. 72 IFM<10THENY$=PP$+ZZ$+RIGHT$(Y$,1):GOTO75
  40. 73 IFM<100THENY$=PP$+RIGHT$(Y$,2):GOTO75
  41. 74 Y$=LEFT$(Y$,LN%-2)+PP$+RIGHT$(Y$,2):IFLEFT$(Y$,1)=" "THENY$=RIGHT$(Y$,LN%)
  42. 75 IFLEN(Y$)<L+1THENY$=" "+Y$:GOTO75
  43. 76 IFNG=1THENNG=0:M=-(M):Y$=Y$+"-":GOTO79
  44. 78 Y$=Y$+" "
  45. 79 IFN%=2THEN85
  46. 80 GOSUB38:IFN%=1THENPRINT"[157]"Y$;:GOTO85
  47. 84 PRINTDA$;
  48. 85 RETURN
  49. 93 L=9:N%=2:PP$=".":ZZ$="0":GOTO70:REM *** FORMAT MONEY.
  50. 94 L=7:N%=2:PP$="":ZZ$="":GOTO70:  REM *** FORMAT QUANTITY.
  51. 95 PRINT"[147]":SAVE"@0:PROGRAM-NAME",8:END
  52. 96 END
  53. 100 REM    CONVERT RC$ TO RECIPROCAL
  54. 110 RC%=LEN(RC$):RC=VAL(RC$)
  55. 120 RC=9999-RC:RC$=STR$(RC):RC$=RIGHT$(RC$,RC%):RETURN
  56. 150 REM    FIND BLANKS NECESSARY TO CENTER A STRING FOR PRINTER
  57. 160 CN%=80-LEN(CN$):CN%=INT(CN%/2):RETURN
  58. 200 REM PRINT POINT STANDINGS
  59. 205 GOSUB2180
  60. 210 REM        HIGH SERIES/HIGH GAME
  61. 220 PRINT#4,BD$:PRINT#4:TY=2:JJ=CT+1
  62. 230 GOSUB3000
  63. 240 PRINT#4:TY=3:JJ=(CT*2)+CL+CM+1
  64. 250 GOSUB3000
  65. 260 GOTO2400
  66. 1000 REM **** HOUSEKEEPING ******
  67. 1010 REM
  68. 1020 PRINT"[147]":J=0
  69. 1080 C=2:R=10:GOSUB38:PRINT"WHAT IS NAME OF CURRENT FILE....."
  70. 1090 R=12:L=16:GOSUB45:DT$=DA$
  71. 1100 OPEN 1,8,3,"0:"+DA$
  72. 1110 SYS896:O=VAL(LEFT$(A$,4)):DIMU$(O+10),W$(O*3),T(O,2)
  73. 1120 FORI=1TOO:SYS896
  74. 1125 IFMID$(A$,3,1)="0"THEN1175
  75. 1130 IFMID$(A$,21,1)="F"THENCL=CL+1:FD$="1":GOTO1145
  76. 1135 CM=CM+1:FD$="2":REM COUNT MEN
  77. 1145 RC$=MID$(A$,54,4):RR$=RC$:GOSUB110
  78. 1150 J=J+1:W$(J)="2"+FD$+RC$+RR$+LEFT$(A$,2)+MID$(A$,4,17)+LEFT$(BD$,8)
  79. 1155 RC$=MID$(A$,46,4):RR$=RC$:GOSUB110
  80. 1160 J=J+1:W$(J)="3"+FD$+RC$+RR$+LEFT$(A$,2)+MID$(A$,4,17)+LEFT$(BD$,8)
  81. 1162 IFLEFT$(A$,2)="98"THEN1199
  82. 1165 U$(I)=LEFT$(A$,20)+MID$(A$,73,4)+MID$(A$,70,3)+MID$(A$,58,6)+MID$(A$,38,4)
  83. 1167 T(CT,2)=T(CT,2)+1:CB=CB+1:REM COUNT BOWLERS
  84. 1170 GOTO1199
  85. 1175 IFLEFT$(A$,2)="99"ORLEFT$(A$,2)="98"THEN1199
  86. 1177 CT=CT+1:T(CT,1)=I:HG$=MID$(A$,46,4):HS$=MID$(A$,54,4)
  87. 1179 RC$=MID$(A$,28,3):PW$=RC$:GOSUB110
  88. 1180 J=J+1:W$(J)="1"+RC$+MID$(A$,31,3)+PW$+LEFT$(A$,2)+MID$(A$,4,17)+HG$+HS$
  89. 1181 RC$=HS$:GOSUB110
  90. 1182 J=J+1:W$(J)="20"+RC$+HS$+LEFT$(A$,2)+MID$(A$,4,17)+LEFT$(BD$,8)
  91. 1183 RC$=HG$:GOSUB110
  92. 1184 J=J+1:W$(J)="30"+RC$+HG$+LEFT$(A$,2)+MID$(A$,4,17)+LEFT$(BD$,8)
  93. 1186 U$(I)=LEFT$(A$,20)
  94. 1199 NEXTI:CLOSE1:BT=INT(CT/2+.5):GOSUB5000
  95. 1200 SE$="LEAGUE SECRETARY "
  96. 1210 ST$="123-4567"
  97. 1220 BN$="** LEAGUE NAME *** - BOWLING LEAGUE"
  98. 1230 BD$="==========":BD$=BD$+BD$:BD$=BD$+BD$+BD$+BD$
  99. 2000 OPEN4,4:CN$=BN$:GOSUB150
  100. 2010 PRINT#4,SPC(CN%);BN$
  101. 2020 PRINT"[147]";BN$
  102. 2030 R=3:C=4:GOSUB38:PRINT"BOWLING DATE WAS ";DT$
  103. 2040 R=5:GOSUB38:PRINT"TYPE  IN THE SAME DATE THE WAY YOU      ";
  104. 2050 PRINT"WOULD LIKE TO SEE IT ON THE REPORT.
  105. 2060 R[178]7:L[178]18:[141]45
  106. 2070 CN$[178]DA$:[141]150:[152]4,[166]CN%)CN$
  107. 2080 [152]4:[152]4,"SECRETARY-";SE$;[166]30);"TELEPHONE # ";ST$
  108. 2090 [152]4,BD$:[152]4
  109. 2100 [152]4,"                     <POINTS> HIGH HIGH ";
  110. 2101 [152]4,"                      <POINTS> HIGH HIGH"
  111. 2110 [152]4," S T A N D I N G S   WON LOST GAME SER.  ";
  112. 2111 [152]4," S T A N D I N G S   WON LOST GAME SER."
  113. 2112 [137]200
  114. 2180 [129]JJ[178]1[164]BT: [143] PRINT POINT STANDINGS
  115. 2200 W$[178]W$(JJ)
  116. 2210 M[178]JJ:[141]94:M$[178][202](Y$,7,2)
  117. 2212 LS$[178]M$[170]" "[170][202](W$,13,17)[170]" "[170][202](W$,8,3)[170]"  "[170][202](W$,5,3)
  118. 2214 LS$[178]LS$[170]" "[170][202](W$,30,4)[170]" "[170][202](W$,34,4)[170]"  "
  119. 2216 [152]4,LS$;
  120. 2222 [139][200](W$(JJ[170]BT),1)[179][177]"1"[167][152]4:JJ[178]BT:[137]2260
  121. 2223 W$[178]W$(JJ[170]BT):M[178]JJ[170]BT:[141]94:M$[178][202](Y$,7,2)
  122. 2224 RS$[178]M$[170]" "[170][202](W$,13,17)[170]" "[170][202](W$,8,3)[170]"  "[170][202](W$,5,3)
  123. 2226 RS$[178]RS$[170]" "[170][202](W$,30,4)[170]" "[170][202](W$,34,4)
  124. 2228 [152]4,RS$
  125. 2260 [130]:[142]
  126. 2400 [143]        INDIVIDUAL AVERAGES
  127. 2410 [152]4,BD$:[152]4
  128. 2420 [152]4,[166]24)"===TOTAL=="[166]29)"===TOTAL=="
  129. 2430 [152]4,"   N A M E ======= HDCP GAMES PINS AVG  ";
  130. 2440 [152]4,"   N A M E ======= HDCP GAMES PINS AVG"
  131. 2490 T%[178]1
  132. 2510 LT[178]T(T%,1):LT%[178]T(T%,2)
  133. 2520 RT[178]T(T%[170]BT,1):RT%[178]T(T%[170]BT,2)
  134. 2530 LS$[178]U$(LT):RS$[178]U$(RT)
  135. 2570 RS$[178][202](RS$,4,17)[170]"#"[170][200](RS$,2)[170][200](BL$,20)
  136. 2580 LS$[178][202](LS$,4,17)[170]"#"[170][200](LS$,2)[170][200](BL$,20)
  137. 2585 [139][200](RS$,2)[178]"98"[167]RT%[178]0:RS$[178][200](BL$,40)
  138. 2590 [152]4,LS$;RS$
  139. 2600 TT%[178]LT%:[139]RT%[177]LT%[167]TT%[178]RT%
  140. 2610 [129]I[178]1[164]TT%
  141. 2620 [139]LT%[178]0[167]LS$[178][200](BL$,40):[137]2680
  142. 2640 L2$[178]U$(LT[170]I)
  143. 2650 LS$[178]"   "[170][202](L2$,4,17)[170][202](L2$,22,3)[170]"  "[170][202](L2$,25,3)[170]" "
  144. 2660 LS$[178]LS$[170][202](L2$,29,5)[170]" "[170][202](L2$,35,3)[170]"  "
  145. 2670 LT%[178]LT%[171]1
  146. 2680 [139]RT%[178]0[167]RS$[178][200](BL$,40):[137]2720
  147. 2690 L2$[178]U$(RT[170]I)
  148. 2700 RS$[178]"   "[170][202](L2$,4,17)[170][202](L2$,22,3)[170]"  "[170][202](L2$,25,3)[170]" "
  149. 2710 RS$[178]RS$[170][202](L2$,29,5)[170]" "[170][202](L2$,35,3)
  150. 2715 RT%[178]RT%[171]1
  151. 2720 [152]4,LS$;RS$
  152. 2730 [130]
  153. 2732 T%[178]T%[170]1
  154. 2735 [139]T%[177]BT[167][160]4:[137]4000
  155. 2740 [137]2510
  156. 3000 [143]   PRINT EITHER HIGH SERIES OR HIGH GAME
  157. 3150 [139]TY[178]2[167]HD$[178]"H I G H    S E R I E S":[137]3170
  158. 3160 HD$[178]"H I G H        G A M E"
  159. 3170 [152]4,"   ";HD$;"    ";HD$;"    ";HD$
  160. 3180 [152]4,"   ";[200](BD$,8);"TEAMS";[200](BD$,9);"    ";[200](BD$,8);
  161. 3190 [152]4,"WOMEN";[200](BD$,9);"    ";[200](BD$,9);"MEN";[200](BD$,10)
  162. 3200 [129]I[178]JJ[164]JJ[170]2
  163. 3205 PP$[178][200](BL$,22):LP$[178]PP$:MP$[178]PP$:RP$[178]PP$
  164. 3210 [139]CT[177](I[171]JJ)[167]LP$[178][202](W$(I),13,17)[170]" "[170][202](W$(I),7,4)
  165. 3230 [139]CL[177](I[171]JJ)[167]MP$[178][202](W$(I[170]CT),13,17)[170]" "[170][202](W$(I[170]CT),7,4)
  166. 3240 [139]CM[177](I[171]JJ)[167]RP$[178][202](W$(I[170]CT[170]CL),13,17)[170]" "[170][202](W$(I[170]CT[170]CL),7,4)
  167. 3250 [152]4,"   ";LP$;"    ";MP$;"    ";RP$
  168. 3260 [130]
  169. 3270 I[178]2
  170. 3271 W1$[178]W$(JJ[170]2)
  171. 3272 W2$[178]W$(JJ[170]I[170]1)
  172. 3273 W3$[178]W$(JJ[170]2[170]CT)
  173. 3274 W4$[178]W$(JJ[170]I[170]CT[170]1)
  174. 3275 W5$[178]W$(JJ[170]2[170]CT[170]CL)
  175. 3276 W6$[178]W$(JJ[170]I[170]CT[170]CL[170]1)
  176. 3280 [139][202](W2$,2,1)[178]"0"[175][202](W2$,7,4)[178][202](W1$,7,4)[167]3400
  177. 3282 LP$[178]PP$
  178. 3284 [139][202](W4$,2,1)[178]"1"[175][202](W4$,7,4)[178][202](W3$,7,4)[167]3410
  179. 3286 MP$[178]PP$
  180. 3288 [139][202](W6$,2,1)[178]"2"[175][202](W6$,7,4)[178][202](W5$,7,4)[167]3420
  181. 3290 RP$[178]PP$
  182. 3300 [139] T1$[179][177]"Y"[167][142]
  183. 3310 [152]4,"   ";LP$;"    ";MP$;"    ";RP$
  184. 3320 T1$[178]"N":I[178]I[170]1:[137]3271
  185. 3400 LP$[178][202](W2$,13,17)[170]" "[170][202](W2$,7,4):T1$[178]"Y":[137]3284
  186. 3410 MP$[178][202](W4$,13,17)[170]" "[170][202](W4$,7,4):T1$[178]"Y":[137]3288
  187. 3420 RP$[178][202](W6$,13,17)[170]" "[170][202](W6$,7,4):T1$[178]"Y":[137]3300
  188. 4000 [153]"LOADALIGN PAPER & PRINT AGAIN (Y/N)";
  189. 4010 [133]XX$
  190. 4020 [139]XX$[178]"Y"[167]1200
  191. 4030 [139]XX$[178]"N"[167][128]
  192. 4040 [137]4000
  193. 5000 [143] **** SORT ROUTINE ****
  194. 5010 [153]"LOAD";:[153]"SORTING"J" RECORDS"
  195. 5020 NP[178]1:SC[178]1
  196. 5030 [153]SC:SC[178]SC[170]1
  197. 5040 [141]3
  198. 5050 TH$[178]W$(NP)
  199. 5060 W$(NP)[178]W$(NL)
  200. 5070 W$(NL)[178]TH$
  201. 5080 NP[178]NP[170]1
  202. 5090 [139]NP[178]J[167][142]
  203. 5100 [137]5030
  204. 10000 [129]J[178]896[164]933:[135]X:[151]J,X:[130]J
  205. 10020 [131]160,002,177,045,153,137,000,200,192,006
  206. 10030 [131]208,246,162,001,032,198,255
  207. 10040 [131]032,228,255,201,013,240,011,164,142,145
  208. 10050 [131]140,200,132,142,196,139,208,238,076,204,255
  209. 10055 BL$[178]"                                 "
  210. 11060 [137]1000
  211.